home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 88 / 088.d81 / basics 88 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  59 lines
  1. 10 poke53281,0:poke53280,0
  2. 17 :
  3. 18 rem  setup
  4. 19 :
  5. 20 poke56,56:poke55,0:clr
  6. 30 sys57812"gorgonfont",8,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 35 sys57812"copymem.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 40 sys57812"gorgons",8,0:poke780,0:poke781,0:poke782,64:sys65493
  9. 50 poke53272,31
  10. 97 :
  11. 98 rem  draw screen
  12. 99 :
  13. 100 print"[147][156]"tab(14)"[176][192][192][192][192][192][192][192][192][192][192][192][174]
  14. 110 [129]i[178]0[164]6:[153][163]14)"(NULL)           (NULL)":[130]
  15. 120 [153][163]14)"/tantantantantantantantantantantanexp
  16. 130 r=6:c=15:co=15:gosub900
  17. 140 print"[159]  [207]kay, okay!  [211]o [201]'ll never work for"
  18. 150 print" [196]isney!  [200]owever, this shows that with
  19. 160 [153]" 'font graphics' and len(NULL)(NULL)(NULL)(NULL)val(NULL), simple
  20. 170 print" animation is possible.
  21. 180 [153]" (NULL)ress +open or -open to adjust the speed.
  22. 190 print" [208]ress [209][159] to return to [204][207][193][196][211][212][193][210].
  23. 195 [151]650,128:d[178]50
  24. 197 :
  25. 198 [143]  animation loop
  26. 199 :
  27. 200 [129]i[178]0[164]4:[129]t[178]0[164]d:[130]
  28. 210 [158]49152,16384[170]i[172]616,15360,616
  29. 220 [130]
  30. 227 :
  31. 228 [143]  get loop
  32. 229 :
  33. 230 [161]a$:[139]a$[178]""[167]200
  34. 240 [139]a$[178]"+"[167]d[178]d[171]5:[139]d[179]1[167]d[178]0
  35. 250 [139]a$[178]"-"[167]d[178]d[170]5:[139]d[177]100[167]d[178]100
  36. 260 [139]a$[178]"q"[167]300
  37. 270 [137]200
  38. 297 :
  39. 298 [143]  to loadstar
  40. 299 :
  41. 300 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  42. 310 [139]er[179][177]63[167][153]"loadopen":[151]650,0:[151]53272,23:[128]
  43. 320 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  44. 330 [153]"run"
  45. 340 [151]631,13:[151]632,13:[151]198,2:[128]
  46. 897 :
  47. 898 :  [153] image subroutine
  48. 899 :
  49. 900 [151]214,r[171]1:[153]:[151]646,co
  50. 910 [153][163]c)"@abcdefghij"
  51. 920 [153][163]c)"klmnopqrstu"
  52. 930 [153][163]c)"vwxyz[\]^_ "
  53. 940 [153][163]c)"!"[199](34)"#$%&'()*+"
  54. 950 [153][163]c)",-./0123456"
  55. 960 [153][163]c)"789:;<=>?tanatn"
  56. 970 [153][163]c)"peeklenstr$valascchr$left$right$mid$(NULL)(NULL)"
  57. 980 [142]
  58. 10000 [159]15,8,15,"i0":[152]15,"s0:basics 88":[160]15:[148]"basics 88",8:[128]
  59.